home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
001a
/
ezzcomm.zip
/
OPUS.T
< prev
next >
Wrap
Text File
|
1991-02-16
|
1KB
|
26 lines
: EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
: Licensed for use at your own risk without fee. Altered versions,
: when distributed, must be clearly marked as altered and accompanied
: by the originals.
:
: Entry in %ZCUSER.IDS for OPUS: remote,password,first,last
: remote: argument of "call" command
: password: signon password (required)
: first: first name. Optional: assumed equal to %n1
: last: last name. Optional: assumed equal to %n2
ena -K!Z p?0 findq "\n%remote," %lib/%ZCUSER.ids
if ? split z0 , , , "";if %z1 goto haveuser
pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
ife r nolog close;return
haveuser:
pat 24cp "rz\r**\030" "@rz -p"
ife !%z2 sets z2 %n1;ife !%z3 sets z3 %n2
pat; pat 0c "What is your FIRST name:" "%z2\r"
pat 1c "What is your LAST name:" "%z3\r"
pat 2c " is your name" "%z2 %z3\r"
pat 3c "%z2 %z3 [Y,n]?" "y\r"
pat 4i "Password:"
wait -f30;if n bye;ife r nolog close;return
mput \b\b\b%z1\r pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
ife r nolog close;return